home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / rexx / recordamigageneric.avm < prev    next >
Text File  |  1995-03-09  |  532b  |  22 lines
  1. /* */
  2. parse upper arg compression fileName .
  3. address command
  4. say 'Recording'
  5.  
  6. samplingrate = '9600'
  7. if pos('7200', compression) > 0
  8.   then samplingrate = '7200'
  9. else if pos('8000', compression) > 0
  10.   then samplingrate = '8000'
  11. else if pos('9600', compression) > 0
  12.   then samplingrate = '9600'
  13. else if pos('6400', compression) > 0
  14.   then samplingrate = '6400'
  15.  
  16. 'avm:agmsrecordsound avmtemp:temp.iff Hz=' || samplingrate
  17. say 'Converting'
  18. 'avm:iff2adpcm avmtemp:temp.iff' compression fileName
  19. say 'Done'
  20. call setclip('playAmigaFile')
  21.  
  22.